home *** CD-ROM | disk | FTP | other *** search
/ Power Programmierung / Power-Programmierung (Tewi)(1994).iso / magazine / pctchnqs / 1990 / number2 / attrtest.pas < prev    next >
Pascal/Delphi Source File  |  1989-08-25  |  272b  |  19 lines
  1. PROGRAM AttrTest;
  2.  
  3. USES Crt,Vidpoint;
  4.  
  5. VAR
  6.   B : Byte;
  7.  
  8.  
  9. BEGIN
  10.   ClrScr;
  11.   GotoXY(15,4); Write('I was born on a pirate ship...');
  12.   GotoXY(15,4);
  13.     FOR B := 0 TO 7 DO
  14.       BEGIN
  15.         WriteAttribute(B SHL 4,50);
  16.         Delay(500);
  17.       END;
  18. END.
  19.